





































Près de 50 000 ZX8I 
sont utilisés en France, 
et ce n'est pas fini ! 

Aujourd'hui, un nombre 
considérable de périphériques 
d'extensions et de 
programmes sont disponibles. 


> 

Pour être tenu au courant 
de ces nouvelles possibilités 
d'emploi de votre 
Sinclair et pour avoir 
accès aux « trésors cachés » 
de votre micro- ordinateur, 


nous avons créé une revue spécialisée pour vous 


r indispensable 
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FAITES sindair 
avec nous! 



merci de vos réponses 


Découpez cette page et retournez - la à 
Sinclair- 22, rue de BILLANCOURT 92000 BOULOGNE 

























DITORIAL 


Les ECHOS SINCLAIR ont connu ces derniers mois quelques 
petits problèmes. Mais le Roi est mort, vive le Roi. Voici le 
N° 10. Nous espérons tous à la rédaction que votre revue 
favorite continuera encore très longtemps. 


Nous avons décidé de prendre une nouvelle orientation, en 
donnant une plus grande place au SPECTRUM et SPECTRUM + 
ainsi qu'au QL qui doit prendre très bientôt une grande place sur 
le marché avec les versions françaises du matériel et des 4 

logiciels de PSION. 


Dans ce but, nous vous demandons votre avis sur ces choix. De 
vos réponses dépendra le contenu des ECHOS SINCLAIR. 


































































































































courrier des lecteurs 




Agullo Fernand 
68, Cité des Sables 
86000 Poitiers 


Je viens de changer mon ZX 81 par un 
ZX Spectrum et je voudrai faire fonc¬ 
tionner le programme de Stock d'Echos 
n° 3 page 26. 

Je l’ai transféré sur mon Spectrum à 
l'aide de la cassette ZX Trans. Tout mar¬ 
che très bien sauf le curseur. J'ai bien 
changé toutes les adresses mais à la 
place du curseur je n'arrive à avoir que 
des pointillés à la place des chiffres et 
des lettres. Par contre les résultats sont 
bons, à la ligne n° 2006 j'ai bien rem¬ 
placé l'adresse 16398 et 16399 par 23684 
et 23685 

Vous nous faites part dans votre lettre 
d'un problème d'adaptation du pro¬ 
gramme Stock pour ZX 81 (ECHOS 
SinclairN 0 3) sur Spectrum. Vos tour¬ 
ments proviennent de la gestion du cur¬ 
seur. Nous n'allons pas vous donner la 
réponse, mais l'origine de ceux-ci. 
L'écran du ZX 81 est divisé en 22 lignes 
de 33 caractères (dont seulement 32 
sont affichés). C'est un écran texte, ce 
qui signifie que la plus petite partie de 
cet écran a comme unité "le caractère". 
Autrement dit, si vous faites un POKE 
dans la mémoire écran du ZX 81, vous 
allez afficher le caractère correspondant 
à la valeur POKée. Le Spectrum est 
doté, lui d'un écran graphique. La plus 
petite partie de cet écran est le "bit". 
(Ce qui permet la résolution de 256x192 
du Spectrum). 

Pour effectuer l'adaptation complète de 
la gestion du curseur du programme 
STOCK, vous devez convertir les PEEKs 
et les POKEs du programme sur ZX en 
PRINT AT Ligne, Colonne et en 
SCREEN$ (Ligne, Colonne) qui sont les 
deux instructions du BASIC du Spec¬ 
trum qui permettent de lire et d'écrire 
sur l'écran graphique. 


Mr Grinda 
du Club MICRO 
CFDT 
BP 932 

83050 Toulon Cedex 


J'ai essayé de réaliser sans succès avec 
un ZX 81 le programme "Dessins Ani¬ 
més" décrit dans le N° 8. Un complé¬ 
ment d'information sur ce programme 
serait sans doute bien venu pour les lec¬ 
teurs débutants. 

Pour faire "FLASHER" l'écran du ZX, 
si l'on introduit les lignes de programme 
(prises dans le même N° 8) dans un 
autre programme, on risque de le plan¬ 
ter. Si cela se produit, il faut modifier 
le POKE El,103 en le remplaçant par un 
POKE El,102 (ou 101 en 104), où bien, 
après la ligne : 

LET E1 = PEEK 16398 +256*PEEK 16399 
ajouter une ou deux lignes PRINT. 
D'autre part, pour éviter d'avoir un 
carré noir quand l'écran se rallume, 
remplacer POKE El,128 par POKE E1,0. 


Georges Remion 
6, allée 
des Ormeaux 
37540 St Cyr s/ boire 


Dans l'utilisation du Spectrum + il est 
absolument nécessaire de débrancher 
la fiche EAR pour "SAVEr"un pro¬ 
gramme puis de la rebrancher pour 
"VERIFY" 

— Quelle est la raison de cette néces¬ 
sité ? (Pas nécessaire sur ZX 81) 

— A-t-on trouvé une "astuce" pour évi¬ 
ter cela (usure des contacts) 

— J'ai réalisé un montage "mécani¬ 
que" sur une fiche jack (ça marche et 
c'est joli, mais...) 

Nous ne reprenons pas votre lettre dans 
ces colonnes tant elle est longue. Que 
de compliments... Nous en avons tous 
rougi jusqu'aux oreilles... Merci, merci. 
Vous avez de petits ennuis de magné¬ 
tophone avec votre Spectrum+ . Vous 
êtes obligé de débrancher l'un ou l'au¬ 
tre des jacks selon que vous êtes en 
sauvegarde ou en enregistrement. Ce 




phénomène provient de votre magné¬ 
tophone et peut être un peu aussi du 
Spectrum. Dans les deux appareils, les 
interconnections sont telles, qu'une 
sorte d'écho (pas Sinclair) crée un effet 
de LARSEN entre les deux jacks et per¬ 
turbe la sauvegarde. Il est ou doit être 
possible de remédier à cela en plaçant 
un condensateur dans l'une ou l'autre 
des machines. 

Amis électroniciens, cet appel est pour 
vous. 


Gérard Billon 
2, Place Sivel 
30610 Sauve 


Nous avons effectivement publié dans 
le numéro 8 des ECHOS Sinclair deux 
de vos programmes, avec, comme vous 
l'avez vous même constaté, un petit 
problème de mise en page... Là, où 
nous sommes impardonnables, c'est 
d'avoir omis votre nom dans les pages 
concernées. Nous veillerons à ce que 
cela ne se reproduise plus. Veuillez donc 
nous en excuser. 

Vous évoquez dans votre courrier la 
rémunération des articles des lecteurs. 
Pour être effective, plusieurs conditions 
doivent être réunies. A savoir, la 
demande expresse de l'auteur de l'ar¬ 
ticle et l'acceptation de la rédaction. Il 
est toutefois évident, qu'en cas de non- 
accord, l'article ne sera pas publié. 
Les articles ou programmes non 
accompagnés d'une demande de 
rémunération, seront considérés 
comme un pur courrier, de lecteur à lec¬ 
teurs. Si vous souhaitez (nous nous 
adressons à tous) voir vos articles 
publiés en tant que "piges", et donc 
rémunérés, vous devez adresser vos 
demandes et les sujets que vous dési¬ 
rez traiter à la rédaction : 

SOLO 

22, rue de Billancourt 
92100 BOULOGNE 

NDLR : Votre lettre pleine d'humour, 
nous a beaucoup amusé. 


4 

































































































club informatique 
du collège V Hugo 


Quand Mr Jean, professeur responsa¬ 
ble, nous a ouvert les portes du CLUB 
INFORMATIQUE, nous avons désiré, 
après quelques séances d'apprentis¬ 
sage de quelques fonctions BASIC et 
UN SEUL ZX 81 pour 25 élèves, pro¬ 
grammer un jeu. Après de nombreuses 
propositions et discussions, notre choix 
s'est porté sur celui que nous vous pré¬ 
sentons aujourd'hui : Mémomot. 

Au départ, l'idée était de fabriquer un 
mot au hasard, ce mot reste affiché sur 
l'écran un certain temps, puis il dispa¬ 
rait ; ensuite un cadre se trace et le mot 
éclate dans ce cadre, lettre après lettre. 
Il ne reste plus qu'à récupérer dans l'or¬ 
dre, avec un curseur que l'on déplace 
avec I, J, K ou M, chaque lettre du mot. 
Nous nous sommes réparti le travail en 
équipes, chacune travaillant un point 
particulier de l'idée. Mr Jean coordon¬ 
nant et rassemblant tous les sous- 
programmes. 

En cours de route, de nombreuses 
modifications et améliorations ont été 
apportées : les mots du dictionnaire, les 
choix du joueur, nombre de lettres dans 
le mot, temps de vision du mot, ajout 
de lettres étrangères au mot, épeler le 
mot dans le désordre, etc... 


En utilisant en mémoire centrale le 
fichier écran ainsi que la logique de 
comparaison, (une expression comme 
(C = 45) vaut 1 si elle est vraie et 0 si elle 
est fausse) tout tenait en 4 lignes, de 
la ligne 840 à 846. PC étant la position 
relative du curseur dans le fichier écran 
et 48 le code de "K”, 47 le code de "J", 
etc... 

840 LET PC = PC + (C = 48)-(C=47) 
+ 33*(C = 50)-33*(C = 46I 
Nous avions raccourci le programme et 
accéléré l'exécution, mais le déplace¬ 
ment du curseur (surtout pour les mots 
longs où le cadre est grand) était encore 
trop lent. Mr Jean nous a programmé 
une sous-routine en langage machine 
quî nous a permis de faire varier la 
vitesse de déplacement du curseur ainsi 
que d'inverser l'écran vidéo quand on 
gagne, l'effet est spectaculaire. 

On peut modifier si on veut la formule 
(ligne 910) donnant les points. Elle est 
basée sur le fait qu'un mot au hasard 
est plus difficile à mémoriser qu'un mot 
du dictionnaire et que les points gagnés 
doivent être proportionnels à la lon¬ 
gueur du mot (LM) et inversement pro¬ 
portionnels au temps de vision (TV) et 
au temps d'exécution (TE). 


On peut également rajouter des mots 
entre les lignes 10 et 200. Ils sont clas¬ 
sés par la longueur. Bien respecter l'or¬ 
dre : un blanc, un mot, un blanc, un 
mot, ...etc sans virgule. 

Nous espérons que ces jeux vous plai¬ 
ront et que nous serons récompensés 
de nos efforts. 

NDLR : La rédaction des ECHOS Sin¬ 
clair souhaite que de nombreux lecteurs 
s'associent à elle pour récompenser les 
élèves du Club Informatique du Lycée 
Victor Hugo de Sète pour ce pro¬ 
gramme. Si votre ZX est au fond d'un 
placard, en état de fonctionnement ou 
non, sortez-le, donnez lui un petit coup 
de chiffon et envoyez le leur. 

Club informatique du collège 
V. Hugo 

1. rue Raspail 34200 Sète 


Par exemple, au départ, pour faire 
déplacer le curseur, nous avions fait : 


ET *=1° 

eo, TO 130 

; « xi Sssw - 

i l WD *' 




C'ES t 




si' 




etc 
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MEMOMOT 


...I 


eu de m° ts 


••• 


'Emo 


m 0 



JC »W l£ 


DEBUT DU PROGRAMME 


e rem •>•? cosue ttrnd, inpui «.-ian • ni4 cls thn ln vn«ln v»???*c run ln 

x»LN IRNDLN WNDLN RNDC- RtTURN Xt) RtTURN IcP REiORN MCVAdS S7RND 7TAN GOSUB 
T1RND7W»C*£ GOSUB ?l*ÎNO?v STOP G'JSOB *PNO?a RtTURN _■*» GOSUB 7 N<NDFySGN GOSUB 
7WNDTX RETURN C"» GOSUB 7‘RND jZ Go Sue î/v uUSJB y*:nD'W»o«E GOSUB ?*?ND» t 't> 

EERND ) 1 .«T 

9130 YB17”714 LET TRN 

1 REM ««nionot 

2 REM PROGRAMME MIS RU POINT PAR LE CLUB INFORMA,IUUE DIRIGE P RR M.JERN 

3 REM RU COLLEGE V.HUGO SETE3420U 1 Rut RASPAIL Lfc 12.12.B3 
3 GOTO 220 


Va contenir le sous-programme en lan¬ 
gage machine du déplacement du cur¬ 
seur et de l'inversion vidéo (voir à la fin). 


9 REM stock49* notiUuKlco 
10 LET V8-" PHYSCENTAFILUX‘ 

13 RETURN 

20 LET V8-" OU TU ET RH UN EH UT MR NU HE IL RU DU' 

23 RETURN 

30 LET V*»'' SRC LYS JUS JET JEU LHC CRL PRS R HS RUE RRC CRR GRZ ERU NEZ GUI ZO 
0 HEP RIR" 

33 RETURN 

40 LET V*-'' LRIC EZRfi ZINC UBRL BHIE TYPE UEU<- Hi^L THiM UEIL PERU MUID RUGE H 
RIE RINE HERE CLEF ONZE MOUE TANK 
43 RETURN 

30 LET V*-" LYCEE HR1NE PUITS EPRIS 00IUT SCEHU 'GUEUX HLOtS TIBIR RSPIC NOEUD 
ALLEE GAFFE HARPE FAUTE MONTE ETANG .FLASH" 

33 RETURN 

60 LET V»-' SPHERE TRAPPE GRAPPE TRAPPE FRAPPE OEUVRE SUJRLE CRYPTE RRFFIR DRH 
LIA APLOMB NIGRUD ESCROC ETOFFE ALCOOL REGRIN COPRIN' 

63 RETURN 

70 LET V*-'' SECONDE VISSAGE SILLAGE TORRIDE INERTIE AUBERGE HYBRIDE INITIAL OR 
GUEIL HOPITAL GUIGNOL ACCUEIL PARTIEL RECUEIL MILLION TORSION LIAISON" 

73 RETURN 

80 LET V8*" FAUTEUIL JERRICAN AQUARIUM jERRYCRN ADDITION AUDITION ANNUAIRE SON 
MAIRE CEINTURE OCULISTE HUMANITE EFFRONTÉ AIGRETTE MYTHIQUE GOTHIQUE AUDITION" 

83 RETURN 

90 LET V8-” DIVIDENDE CARRELAGE ARRACHAGE GDiMbARDE ESSAIMAGE ENVELOPPE TETRAE 
DRE ATTEINDRE PASSATION CESSATION SECESSION EXCURSION' 

93 RETURN 

100 LET V8-" HALLEBARDE SUCCULENCE INCROYANCE TRAQUENARD HOLOCAUSTE HIERARCHIE 
PHILATELIE TUYAUTERIE DYSENTERIE ACCROCHEUR DESHONNEUR 
103 RETURN 

110 LET V»-" AURICULAIRE ACTIONNAIRE AQUICULTURE NOIRCISSURE CONJUGAISON FEUILL 
AISON DISSOLUTION DESCENDANCE AUTOMOTRICE HIPFOPUTAME AELIANTHEME HIEROGLYPHE BA 
TMYSCAPHE HIPPOGRIFE" 

113 RETURN 

120 LET V*-'' DEBROUILLARD RACCOMMODAGE ECHAUFFUUREE MEDITERRANEE QUINTESSENCE E 
XCROISSANCE SYLVICULTURE' 

123 RETURN 

130 LET V8-” INCANDESCENCE EFFERVESCENCE ENSEMENCEMENT CONSCIENCIEUX SCYPHOZAIR 
ES EFFEUILLAISON DEFEUILLAISON' 

133 RETURN 

140 LET V8»" HYPERTHYROÏDIE ANTHROPOMETRIE HETEROCYCLIQUE HYDRODYNAMIQUE CHLORO 
PHYLLIEN PYROTECHNICIEN' 

143 RETURN 

130 LET V8-" EMPUANTISSEMENT CIRCONSCRIPTION POLYSYnTHETIuUE POLIOMYELITIQUE IN 
VRAISEMBLANCE IRRETRECISSABcE IRREPREHENSIBLE" 

153 RETURN 

160 LET V8«" PHYSIOPATHOlOGiE DISQUALIFICATION DcCENTAlISHTION HYPERCLORHYDRIE 
PROH IBIT1ONNIS TE " 

163 RETURN 

170 LET V8-" ANTHROPOMORPHISME PSYCPYJPHYSIOLOGIE COHSUBSTHNTIAT ION ANTICONCEPTI 
ONNEL APPROVISIONNEMENT" 

173 RETURN 

180 LET V*»“ INTERDISCIPLINAIRE IMPERMEASIL.SA,IOyy RhPPrOVISIUNNEMENT CRISTALLO 
GRAPHIQUE THERMOLUMINESCENCï" 

183 RETURN 


Liste des mots du dico classés par lon¬ 
gueur stockés sous la forme un blanc, 
un mot, etc... 

Bien contrôler le nombre de lettres. 



190 LET VR-” STENODACTYLOGRAPHIE FSYlHOF'HARMACOLJGIE EuECTROCARDIOGRAMME POSTSY 
NCHRONISATION DESOXYRIBONü.lE.QUE iNCOMFRtHENSIelL■E 

193 RETURN 

200 LET VN" OTOKHINOLARYNGOLUG 11 ELEC ‘ ROnETHLLuRGiSTt AnTIsEGREGATIUNNISTE INC 
ONSTITUTI ONNALITE INTERNAI lONALiSAY IOm DESAPPRuVIilORNERtNT 

























































































MEMOMOT 


203 RETORN 

210 REM rinBa«»*"Ot»fcj‘. 0o:cc 
213 REM 


220 REM r*9l*fcluB.i«u 
223 REM 

228 PR INT RT 0/3i "^*u*3«ltnotlâÉlrt«ngr;s*r 
230 PRINT RT 3.0i"UN MOT Vfl RPPRRHÎTkE SUR L c-CR-M 
232 PRINT RT 3,0. RETENEZ LE BIEN EN MtMOiRE. CH* 
234 PRINT RT 7,0)"IL Vfl ENSUITE EXPLOSER. 

236 PRINT RT 0,0,"RuORb, H VOUS DE CUEILLIR' 

238 PRINT RT 11,01 ' CHAQUc. LETTRE, DANS L ORDRE," 

240 PRINT RT 13,0)"R L RIDE D UN CURSEUR a 

242 PRINT RT 13,01"QUE VOUS DEPLACEREZ HVEc i, j,<,M 

244 PRINT ai 17,01 "AFIN De RECONSTITUER LE r,ÜT.' 

246 PRINT RT 19,0i "trMivtzburainrflttft" 

248 PRINT RT 21,0i"POUR VOIR LA SOI JE 


Afficher les règles du jeu. 


230 REM InttUlUctlon 


234 LET MB-0 

236 LET DE-1-pPEEK 16396*236*PEEK 16SS7 

238 LET Z9-INKEY9 
260 LET Z-RND 

262 IF Z0- " TMEN GOTO 238 
264 GOTO 278 


Moyenne à battre mise à 0 

DE contient l'adresse du début du 
fichier écran. 

Boucle d'attente clavier on en profite 
pour commencer la séquence 
pseudo-aléatoire 


263 REM nouv«ll»»«rtl* 

266 CLS 

268 PRINT RT 0,10i"MEME JOUEUR T 


point d'entrée venant de 998 
on efface l'écran 


270 LET Z9-INKEY» 

272 LET Z-RNO 

274 IF Z*- '" OR <Z0O"O” AND 2*<>“N" ) THEN GOTO 270 
276 IF Z*-"0“ THEN GOTO 286 


boucle d'attente clavier 
tirage au sort 
on n'accepte que O ou N 
si c’est le même joueur on saute 


278 LET PA-0 
280 LET PG-0 
282 LET MO-0 
284 LET TP-0 


si c'est le premier joueur (ou si on 
change de joueur) on met à 0 
le nombre de parties jouées PA 
le nombre de parties gagnées PG 
le total des points TP 
la moyenne obtenue MO 


(voir en 900) 


CHOIX DES JOUEURS 

286 CL S 

288 PRINT TRB 101"Pr»P«r«tlf»“ 

290 PRINT RT 3,01'COMBIEN VOULEZ-VOUS DE LETTRES DANS LE MOT (DE 01 R 20) T"! 

291 PRINT HT 5,0i"d«ux CHIFFRES OBLIGATOIREMENT 


292 LET U0- ,,n 

293 PRINT RT 3,30i• ■ 

294 FOR Z-l TO 2 
296 LET Z9-INKEY9 

293 IF Z*-"" THEN GOTO 296 
300 LET U9-U9+Z9 
302 PRINT RT 3.30,U* 

304 NEXT Z 

306 LET LM-< CODE U*< 1 >-28 >*10*( CODE D»<2.’-26> 


308 IF LM<1 OR LM>20 THEN GOTO 292 


va contenir les 2 chiffres 
efface si mauvais 

va recueillir l'un après l'autre les deux 

chiffres qui seront évalués par CODE 

0 a pour code 28 

1 a pour code 29, etc... 

mieux que VAL car pas de message 

d'erreur si on frappe une lettre 

LM contient la longueur du mot 


310 

312 

314 

316 

318 

320 


PRINT RT 7,01"MOT RU HASARD OU DU DICTIONNAIRE (H OU D> T"J 

LET D-0 

LET Z0-INKET* 

LET Z-RND 

IF Z»-"" OR (Z0O*H” AND Z0O"D"> THEN GOTO 314 
IF Z»-"D" THEN LET D-l 


D est un drapeau qui va servir en 360 
boucle d'attente clavier 
tirage au sort 

protection contre les autres touches 
si on choisit DICO le drapeau est mis à 1 
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MEMOMOT 


322 IF Z»-"H" THEN FR INT 
324 IF Z*«"D" THEN PRINT 


HRSRRD" 

DICO" 


326 PRINT FIT 11,0,"ÿOULEZ-VOUS LE REGftRDER LONGTEMPS '.DE 1 fi 9 ) ?" J 

328 IF INKEY»-’"’ THEN GOTO 328 

323 LET TV1-CODE INKEY*-2B 

330 4-ET TV-TV1ETV1 

332 IF TV<I OR TV>8I THEN GOTO 328 

334 PRINT RT 12,30,TV1 


336 PRINT RT 15,0,"VITESSE DU CURSEUR .1 R 9 >7 i 

338 IF INKEY*»"" THEN GOTO 338 

340 LET VC-CODE INKEr*-£3 

342 IF VC<1 OR VC>9 THEN GOTO 3sô 

344 PRINT RT 13.. 30, VC 

346 POKE 16329,10-VC 


on élève au carré 
TV va servir en 374 


on place à l'adresse 16529 la valeur de 
10-VC utilisé par la sous routine en lan¬ 
gage machine. 


PROGRAMME PRINCIPAL 

348 REM d40utflduM.it u 

330 FOR X-0 TC LU 
332 LET Z-RND 
334 NEXT X 

336 CL S 

338 PRINT RT 10,0, "«tttntsonflonlkcoM'itr;* 

360 IF D-l THEN GOTO 368 

362 REH h«**ro 

364 GOSUB 400 

366 GOTO 372 

368 REM dlco 

370 GOSUB sue 

372 REM tcmPiflaefl, ,sic» 

374 FOR X»0 TO TV 
376 NEXT X 
378 REM onfl»ff«ct 
380 CLS 
382 REM ctdrt 
384 GOSUB 600 
386 REM nothclitl 
388 GOSUB 708 
390 REM curitur 
392 GOSUB 800 
394 REM rt*ult*t* 

396 GOTO 900 
398 STOP 


point d'entrée venant de 995 
attente pendant la concentration ; 
d'autant plus longue que le mot est 
long 

on efface 


si on a choisi DICO on va en 368 

boucle de visualisation du mot 
on efface 


stop de protection. 


POUR ECRIRE UN MOT ! 

400 REM tcrirtfl.nUttOtfliiulfl'itstM) 

410 LET X»-"" 

420 FOR X-l TO LM 

430 LET TL-37+INT '. RN0*£6*1 > 

430 LET X*-X**CHR» TL 
460 NEXT X 
470 CLS 

480 PRINT RT 10,10;X* 

490 RETURN 

300 REM tcrirtflunfl’ictflduflaico 
310 GOSUB LM*10 

320 LET DEB-2»<INT <RND*LEN V*U'.LM*1 >;*<LM+i >> 


330 LET X*-V*',DEB TO DEfc*LM-l 1 
340 CLS 

330 PRINT RT 10.10.X* 

360 RETURN 


Tirage au sort du code lettre (voir ci- 
dessous) 


on sélectionne la série de mots en fonc¬ 
tion de la longueur choisie 
voir ci-dessous 

on extrait le mot de V$ et on le place 
dans X$ 



en 430 : Tirage au sort d'un nombre x 
x<MI : On fait Let TS = INT IRnd Ml) 
si on ne veut pas le 0 
on fait Let TS = INT IRnd & Ml + 


1) 


MI<x<MA q 


Ml 

—i— 


MA 

—i— 


LO 


on fait Let TL = Ml + INT IRnd * LO + V 


soit Let TL = Ml + INT IRnd # IMA - Ml - 1) + 1) 

Les lettres étant codées de 38 IA) à 63 IZ) il faut 37 < x < 64 
soit INT IRnd * <64 - 37 - 1) = INT IRud # 126) + 1) 

en 520 : Len V$ représente le nombre de mots 

dans la variable V$ I + là cause du blanc) LM + 1 
INT IRnd LEN V$ représente le n° du mot tiré au sort 
LM + 1 (0 compris) 

DEB représente le début du mot tiré au sort. 
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MEMOMOT 


ON TRACE LE CADRE 


600 REM tr*c*fcuBc*Or« 

602 LET LA-LM+3 

604 IF LR>14 THEN LET Lfi-14 

606 LET LO-INT <LA*3^4> 

606 LET MRO-INT < C 30-LO J'2 

610 LET MRH-INT < < 20-LH V2> 

612 LET LEO-MRO 

614 LET LED-LEG*LO*l 

616 LET LEH-MRH 

616 LET LE8-LEH+LA+1 


Les dimensions et la position du cadre 
sont fonction de la longueur du mot. 
La largeur sera égale à la longueur du 
mot + 3. Mais il ne faut pas que cette 
longueur dépasse 14 car il y a 3 lignes 
d'écriture en haut et en bas de l'écran, 
en 606 on décide des proportions du 
rectangle. 

en 608 : (32 - 2 - LO) 
en 610 : (22 - 2 - LA) 


630 FOR X-LEG TO LEO 
632 PRINT RT LEH.XJ 
634 PRINT RT LEB.Xj 
636 NEXT X 

640 FOR Y-LEH TO LEB 
642 PRINT RT Y,LEO. 
644 PRINT RT Y.LEO. '■ 
646 NEXT Y 
630 RETURN 


tracé des deux horizontales 


tracé des deux verticales. 


,LEG, 


TSX 

Y 


LEO 

I I 
I I 


0 

J_ 

oe : ■ * i t ■ ■ ■■■ r ■ 

! ! > ! 

_i___Lto_J 

■ ■ ■ 

MAH 

LEH 2 






3 

TSY *-4 

5 

LA 

Y 

_1_! 2 J 3_;_4j_5j_6_ 





3 1 r 1 * a • 

i i i ii 

LEB 6 





7 

MAG 

. 1 

. « 

1 « 



LE MOT ECLATE 


700 REM notbcUtt 
702 LET W»-X* 

704 LET C-0 


706 FOR Z-0 TO U1*2 

708 IF Z>-1 AND Z<-LM THEN GOTO 713 


709 GOSUB 10 

710 LET LS-INT <RND4LEN V» :-*i 

711 LET LE-CCDE V*<LS> 

713 GOTO 743 


713 LET TSL-INT <RNC4LEN H» 
730 LET LE-CODE TSL ) 


733 LET W0-W*'-. TC TSu-1 >*U»< TSL-1 TO > 



On transfère X$ dans W$ car le mot va 
se détruire au fur et à mesure. 
Drapeau pour la ligne 785 

on commence 1 avant et on finit 2 après 
pour mettre des lettres étrangères au 
mot. 

tirage au sort d'une lettre étrangère 
dans le V$ de la ligne 10. 

tirage au sort du rang de la lettre qui va 
être retirée du mot 
on retire la lettre du mot (voir ci- 
dessous) 


743 LET TSX-LEG+INT CRND*< ^ED-LEG-1Hl> 
753 LET TSY-LEH*INT <RND*'. LEB-LEH-1 >*1 > 
770 LET PL-<TSY*33>+TSX 
780 IF PEEK < DE*PL>< >0 THEN GOTO 743 


point d'entrée venant de 804 
tirage au sort des coordonnées 
position de la lettre dans le fichier écran 
si la place est occupée on retire 
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MEMOMOT 


783 IF Ol THEN RETURN 


si on vient de 804 (curseur) on n'écrit 
pas 


798 POKE OE*PL,LE 

792 HEKT Z 

793 RETURN 


on écrit la lettre sur l'écran 
on continue 


en 735 on enlève la lettre tirée au sort Ipour ne pas la retirer une seconde fois) 

TSL 

W$ devient MAISON 

Let (du début jusqu'à TSL — 1) + W$ (de TSL + 1 jusqu'à la fin) 



770 - 790 


1ère ligne 2ème ligne 3ème ligne 

- 1 ---- 1 -- - - 1 - 


- 

- 1 - i [ 1 / 




— 1 -\ /- 1 1 “V 

0 1 

2 3-- --|30|3l|M8 0 

< 

2 

3 

-|30|3l|ll8 0 11 | 2 | 31- 


DE - PL 


Le fichier écran commence à l'adresse DE donnée par la ligne 256. Ce fichier contient toutes les cases de l'écran (22x32) 
à la suite ; cependant pour séparer les lignes il y a après la 32ème case une case supplémentaire contenant le code 
118 (New Line) chaque ligne occupe donc 33 cases. 

Lecture du fichier si on veut savoir ce que contient la case de la ligne 1 et colonne 3 soit PL = (TSY & 33) + TSX 
= (1 # 33) + 3 = 36 il faut faire Let CONT = Peek IDE + PL) et CONT contiendra 38 (le code de A). 



0 1 

2 

3 

4 

5 

31 

32 

0 

DE 








118 

• 




A 





118 

2 









118 












Ecriture dans le fichier : Si on place un code dans une case, aussitôt le caractère correspondant s'écrit sur l'écran. 
Par exemple pour écrire un B à la place du A on fait Poke (DE + PL), 39. 


DEPLACEMENT DU CURSEUR 

808 REM cur»«urfc*f>l»c«?<«<'tB»t*'»cnercn« 
802 LET C-l 
604 GOSUE 743 
606 LET Y*-"" 

806 LET PC-<TSY*33>*TÿX 

610 LET RDC-CE+FC 

611 LET CUR-PEEK ROC 


Utilisant la sous routine en langage 

machine donc vitesse variable 

drapeau pour la ligne 785 

tirage au sort des coordonnées du 

curseur 


Y$ va recueillir le mot lettre après lettre 
position du curseur dans le fichier écran 
(PC) et son adresse absolue (ADC) con¬ 
tenu de cette case 


812 PRINT RT 0, 12j ' coiw»nctr' 
614 POKE ROC*COR*128 
616 LET Z-RNC 
817 PRINT RT 8,12i' 

618 LET Z6-INKEY» 

820 POKE ROC.CUR 

822 IF 2»-"" THEN GOTO 612 


825 PRINT RT 2,0j •TEMPS >“ 

826 POKE 16437,233 

627 PRINT RT LEB+1,0, "TON 110 , 

628 PRINT RT LEB,0iLf1< LET." 


630 POKE 16306,INT <R0C'236> 

632 POKE 16307,R0C-236FINT .R0l/-236> 


834 POKE 16514,TSK-LEG 


Boucle d'attente avant de commencer : 
on inverse le contenu de ADC (les 
blancs deviennent noirs) 
on efface "commencer” pour le faire 
clignoter 

on remet en normal (le curseur rede¬ 
vient blanc) 

on déclenche le chrono = Dès que 
cette adresse (16437) contient un nom¬ 
bre (0 à 225) elle le décrémente d'envi¬ 
ron 1 unité chaque 5 secondes. C'est 
un compteur à rebours. 

Transmission des variables BASIC à la 
sous routine en long. Machine adresse 
du curseur 

X abscisse relative dans le cadre du 
curseur 
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MEMOMOT 


836 POKE 16313. LO* l 
838 POKE 16316.TSY-LfcH 
848 POKE 16517.LR*1 


638 LET CRR-USR 16336 
832 LET Y8-Y8+CHR» CRR 
834 LET TE-233-PEEK 1643? 

836 PRINT RT 2,8-TE 
888 PRINT RT LEB*1-10-Y» 

883 IF LEN Y*<LM THEN GOTO 833 
898 RETURN 


borne droite 

Y ordonnée relative dans le cadre du 

curseur 

borne basse 

Sous routine de déplacement du cur¬ 
seur. Si une lettre est rencontrée dans 
l'écran son code se trouve dans CAR. 
On calcule le temps écoulé 
on l'écrit 

on écrit le mot qui se forme 

tant que le nombre de lettre n'est pas 

suffisant on recommence. 


DEPLACEMENT DU CURSEUR 
(Version BASIC plus lente) 




888 REM cur»*urfc«P 
882 LET C-l 
884 GOSUS 743 
686 LET Y*-"" 

888 LET PC-<TSY*33l+TSX 
818 LET ROC-OE+FC 

811 LET CUR-PEEK ROC 

812 PRINT RT 8,12-''commencer' 
814 POKE RDC.CUR*128 

816 LET Z-RND 

817 PRINT RT 8.12-" 

818 LET Z8-INKEY» 

828 POKE RDC.CUR 

822 IF Z»-“" THEN GOTO 612 

823 PRINT RT 2-0-"TEMPS '* 

826 POKE 16437,233 

827 PRINT RT LE8*1- 8-"TON MO- 

828 PRINT RT LEB.BjLMi"LET." 


838 POKE 16308-INT <R0C-'23tl 


832 POKE 16387,ROC-236*INT <.RDC'2S6> 


834 POKE 16314, TSX-LEC 


836 POKE 16315. LO*l 
838 POKE 16316, TSY-LEH 

848 POKE 16S17.LR+1 


830 LET CRR-USR 16336 

832 LET Y8-Y8+CHR8 CRR 

834 LET TE-253-PEEK 16437 

836 PRINT RT 2-8-TE 

888 PRINT RT LEB*1.10,Y» 

883 IF LEN Y*<LM THEN GOTO 833 
890 RETURN 


Penser à supprimer les lignes qui font 
appel au langage machine de 
336 à 346 
de 942 à 944 
ligne O ou 1 


on sauve dans CUR le contenu de la 
position du curseur dans le fichier écran 
(ADO 

on l'inverse (les blancs deviennent 
noirs) 

attente touche clavier 
protection pour les autres touches 
autres que I J K M 
on remet en normal 
suivant la touche PC se modifie (posi¬ 
tion du cruseur) 

nouvelles coordonnées du curseur 

on teste (voir ci-dessous) 

nouvelle adresse fichier écran 

on sauve le caractère contenu à cette 

nouvelle position 

CAR s'il y a une lettre ( * 0) 

on l'ajoute dans Y$ 

on calcule le temps écoulé 

on l'écrit 

on écrit le mot qui se forme 

si ce n'est pas fini on revient en 830 
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MEMOMOT 


En 840 déplacement du curseur suivant 
la touche 

Exemple : si on touche K 
(C = 48) vaut 1 
(C = 47) vaut 0 
(C = 46) vaut 0 
(C = 50) vaut 0 

PC = PC +1-0 + 33 x 0 - 33 x 0 

donc PC = PC + 1 

le curseur va avancer d'une case 



En 846 tests pour les bords du petit écran (cadre) 

Exemple : si le curseur arrive sur le cadre droit (X = LEDI vaut 1 donc on enlève 1 pour faire reculer le curseur d'un cran. 

Si le curseur arrive sur le cadre haut, (Y = LEH) vaut 1 donc on ajoute 33 pour faire passer le curseur à la ligne en 

dessous, etc... * 


VERIFICATION-RESULTATS 


900 REM v«rlf lc*tion»-«»u.lt«ts 
905 LET Pfi-PR+1 

910 LET PO"INT < < 50*LM*< 5-'. 4*D 1 < TV»TE;*1 >> 

915 PRINT RT LEB+2,0) MON MOT ”>X» 

920 IF Y0-X* THEN GOTO 940 


Compteur de parties jouées 
on compare les deux mots 


925 PRINT RT LEH,LEO)"PEROU' 
935 GOTO 950 


on peut si on perd enlever les points au 
lieu de ne rien ajouter 


940 PRINT RT LEH.LEGj“GAGNE' 

942 FOR Z-l TO 10 

943 RRNO USR 16671 

944 NEXT Z 

945 LET PG-PG*1 
947 LET TP-TF+PO 


Tout l'écran devient noir sur blanc puis 
revient blanc sur noir (inversion vidéo) 
il clignote 10 fois. Sous routine en lan¬ 
gage machine - voir plus loin compteur 
de parties gagnées 
total des points 


950 LET MO”INT <TP/'Pfi> 

960 PRINT HT £1,0, "VOULEZ-VOUS ONE PRKTlt I0EN, IQ.jE' 
962 IF MO>MB THEN LET tlfc-MG 
965 PRINT RT 0,0, "PRRTIES'"jPR 
970 PRINT RT 1,0,"GAGNEES "iFG 

975 PRINT RT 0,20,'POINTS■ ' ) TF 

976 FRINT RT l,19, "MOYENNE ,M0 

976 PRINT RT 2,12) "MGTE. R 6RTTRE ". IB 


calcul de la moyenne 
si cette moyenne dépasse la moyenne 
à battre elle prend sa place 
affichage des résultats 


960 LET Z*-INKEy* 

985 LET Z-RND 

990 IF Z*- " ' CR <Z*<>'o HND ZRO' n" 1 THEN GOTO 9*2 
995 IF Z*-"0” THEN G010 948 


nouvelle partie dans les mêmes 
conditions 


998 IF Z»-"N" THEN GOTO 265 

999 STOP 


nouvelle partie en modifiant les choix 
du joueur. 


En 910 calcul des points par une formule arbitraire que l'on peut modifier D vaut 1 si on choisi DICO 
et O si on choisi HASARD 



PO = 50 # LM jfc 15 — (4 & DU LM est la longueur du mot 
(TV # TE) + 9 TV le temps de vision 

TE le temps d'éxécution 

ne pas oublier + 9 (ou + n) pour éviter dans certains cas la division par 0 (cas ou le chrono n'a pas le temps de se 
décrémenter) 
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MEMOMOT 


CHARGEMENT DE LA SOUS- 
ROUTINE EN LANGAGE MACHINE 

Ne pas oublier (avant de faire GOTO 

1000) de remplir en ligne 1 REM.183 

points au moins.qui vont se rempla¬ 

cer au fur et à mesure par les cadres 
hexadécimaux (ou leur représentation). 

1000 REM Pro9r.fe*fch*r®«n«nt 

1002 REM Poutin*ll*r>9. 

1003 LET D-1631S 
1010 SCROLL 
1020 PRINT D 
1030 IMPOT C* 

1040 FOR X-l TO LEN L»-l SlEF £ 

1030 POKE D+INT <<X-1 V2),<CU0E 
C*', X >-£8 i &4C0DE L*. X* i )-£8 
1060 NEXT X 
1070 SCROLL 
1080 PRINT C* 

1090 i_ET 0-0+8 
2000 GOTO 1010 


Après avoir tapé le programme à la suite 
de l'autre (après la ligne 999) et avoir 

fait 1 REM.183 points au moins. 

faire GOTO 1000 et entrer les octets des 
pages suivantes, côte à côte (pas d'es¬ 
pace entre) par 8 octets. 

Exemple : première ligne 16518 
"ED5B7B401AEE8012" et chaque fois 
New Line. 

et ainsi de suite.... jusqu'au dernier 
octet. Pour arrêter le programme faire 
RUBOUT pour effacer ; faire STOP et 
NEW LINE. 

Faire LIST pour regarder la ligne 1 REM 
qui s'est transformée. 

Pour protéger cette ligne 1 REM d'une 
édition catastrophique faire POKE 
16510, 0 ettette ligne 1 REM devient 
la ligne 0 REM que l'on peut lire mais 
que l’on ne peut plus éditer (corriger). 
On peut alors intercaler une ligne 1 
REM en plus, si on veut. 

9000 REM 

9003 SR VE "MEMCnOl 
9010 RUN 

Pour que le programme démarre tout 
seul après le changement en mémoire 
centrale ne pas le sauver sur cassette 
SAVE "mémomot" mais par GOTO 
9000. 

A la lecture il démarre tout seul. 


DEPLACEMENT DU CURSEUR 
SOUS ROUTINE EN LANGAGE 
MACHINE 

Transmission des variables : Elles 
sont stockées par le BASIC dans 6 
adresses : 

Voir dessin du cadre et de l'écran. 

Le programme basic doit contenir : 
Let DE = 1 + Peek 16396 + 256 * 
Peek 16397 

Let PC = (TSY * 33) + TSX 


Let ADC = DE + PC 
Poke 16508, INT (ADC/256) 

Poke 16507, ADC - 256 * INT 
(ADC/256) 

Poke 16514, TSX - LEG 
Poke 16515, LO + 1 
Poke 16516, TSY - LEH 
Poke 16517, LA + 1 


La sous routine va utiliser le contenu de 
ces adresses et le modifier. 

Au retour par le registre BC elle 
nous donne le caractère du carac¬ 
tère saisi. 

Let CAR = USR 16536 (le programme 
commence à l'adresse 16536) 

CAR va contenir le code du caractère 
saisi par le curseur. 

Deux sous routines sont placées au 
début 

en 16518 la sous routine d'inversion 
d'un caractère 

en 16527 la sous routine de 
ralentissement 

Le programme principal commence en 
16536 (jusqu'en 16593) 


DE = début du fichier écran 

PC = position relative du curseur dans 
le fichier écran en fonction de ses 
coordonnées. 

ADC = adresse absolue du curseur 
on stockera la partie haute (16508) et la 
partie basse (16507) de l'adresse du cur¬ 
seur 

(voir dessin de l'écran) 

X = abscisse du curseur dans le cadre 
borne droite 

Y = ordonnée du curseur dans le cadre 
borne basse 


Quatre sous routines suivent ensuite 
en 16594 déplacement à droite du 
curseur 

en 16611 déplacement à gauche du 
curseur 

en 16629 déplacement vers le haut du 
curseur 

en 16651 déplacement vers le bas du 
curseur 

En 16671 j'ai utilisé la sous routine de 
Christian Magrin : 

Inversion Vidéo Logicielle qui donne de 
très bons résultats 

Au départ, le curseur (carré noir) doit 
être éteint (un blanc), avant de lancer 
la sous routine du déplacement du cur¬ 
seur par 


LET CAR = USR 16536 
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MEMOMOT 


10 REM 


15 REM RASSEMBLER EN I65l8 
hVEC LE ZX RS 


23 

REM 

( 

30 

REM 

: L20LD DE.<16507> 

35 

REM 

LD A.(DE ) 

40 

REM 

XQR *60 

45 

REM 

LD ( DE ). A 

50 

REM 

RET 

55 

REM 

1 L40LD BC.*560 

60 

REM 

■L9DEC BC 

65 

REM 

LD R.B 

70 

REM 

OR C 

75 

REM 

JR NZ.l9 

80 

REM 

RET 


100 

REM 

■L10CHLL L20 

110 

REM 

: L0CAll *0266 

120 

REM 

LD 

B.H 

130 

REM 

LD 

C.L 

140 

REM 

LD 

D. C 

150 

REM 

INC D 

160 

REM 

JR 

Z.L0 

170 

REM 

CALL *07BD 

180 

REM 

CALL L40 

190 

REM 

CALL L20 

200 

REM 

CALL L40 

210 

REM 

LD 

A. (HL) 

220 

REM 

LD 

HL.(16507 ) 

230 

REM 

CP 

48 

235 

REM 

JR 

Z.L1 

240 

REM 

CP 

47 

245 

REM 

JR 

Z.L2 

250 

REM 

CP 

46 

255 

REM 

JR 

Z.L3 

260 

REM 

CP 

50 

265 

REM 

JR 

Z.L4 

270 

REM 

JR 

L10 

280 

REM 

! L30LD (16507).Hu 

290 

REM 

LD 

A. ( HL •> 

300 

REM 

CP 

0 

310 

REM 

JR 

Z.L10 

320 

REM 

LD 

B. 0 

330 

REM 

LD 

C. A 

340 

REM 

RET 


Sous routine d'inversion d’un caractère 
ou EXCLUSIF avec $80 


Sous routine de ralentissement. 

Pour faire varier la vitesse de déplace¬ 
ment du curseur Poker en 16529, n 
1 < n < 255 

plus n est grand + c'est long à décré¬ 
menter et + c'est lent. 

DEBUT DU PROGRAMME PRINCIPAL 

on inverse blanc -* Noir 
attente d'une touche au clavier 
le registre HL contient au retour 
l'adresse où se trouve le code de la tou¬ 
che enfoncée. 


on ralentit 

on inverse noir -* blanc donc on efface 
le curseur 
on ralentit 

A contient le code du caractère de la 
touche enfoncée 

HL contient l'adresse écran du curseur 
si K - 

sous routine d'avance 
si J «- 

sous routine de recul 
si I I 

sous routine de montée 
si M I 

sous routine de descente 

si une autre touche on revient en 

attente clavier (protection) 

on sauve en 16507 la nouvelle position 
du curseur 

on met dans A ce que contient cette 
adresse écran 
si rien on retourne en L10 
si quelque chose on met son code dans 
BC pour le récupérer par Let CAR = 
USR 16536 au retour de la routine. 


350 

REM 

1 L1LD BC. (16514 ; 

360 

REM 

LD A. C 

370 

REM 

INC A 

368 

REM 

CP B 

390 

REM 

JR Z.L5 

400 

REM 

INC C 

410 

REM 

LD < 16514).BC 

420 

REM 

INC HL 

430 

REM 

■L5JR L30 


440 

REM 

•L2LD BC.(16514) 

450 

REM 

LD A. C 

460 

REM 

DEC A 

470 

REM 

CP 0 

460 

REM 

JR Z.L6 

490 

REM 

DEC C 

500 

REM 

LD < 16514).BC 

510 

REM 

DEC HL 

520 

REM 

■L6JR L30 

530 

REM 

! L3LD BC.(16516) 

540 

REM 

LD A. C 

550 

REM 

DEC A 

560 

REM 

CP 0 

570 

REM 

JR Z.L7 

580 

REM 

DEC C 

590 

REM 

LD <16516).BC 

600 

REM 

LD DE.33 

610 

REM 

SBC HL.DE 

620 

REM 

1 L7JR L30 

630 

REM 

1 L4t_D BC.(16516) 

640 

REM 

LD A. C 

650 

REM 

INC A 

660 

REM 

CP B 

670 

REM 

JR Z.L8 

680 

REM 

INC C 

690 

REM 

LD (16516).BC 

700 

REM 

LD DE.33 

710 

REM 

ADD HL.DE 

720 

REM 

! L8JR L30 

730 

REM 

LD HL. (*4000 

740 

REM 

LD DE.0000 

750 

REM 

ADD HL.DE 

760 

REM 

LD BC.*02C0 

770 

REM 

■L11LD A.*76 

780 

REM 

: L12INC HL 

790 

REM 

CP (HL) 

800 

REM 

JR Z.L12 

810 

REM 

LD A.*80 

820 

REM 

XOR (HL). A 

830 

REM 

LD (HL). A 

840 

REM 

DEC BC 

850 

REM 

LD A.B 

660 

REM 

QR C 

870 

REM 

JR NZ.L11 

880 

REM 

RET 


! 
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MEMOMOT 


AVANCE K - 15 
16514 16515 

X LO + 1 

si on avance de 1 on compare à la borne 
si on est sur le cadre on revient sans rien 
faire (L5) 

sinon on incrémente C (ou X) 
on sauve la nouvelle abscisse 
on avance l'adresse écran du curseur 
on revient à L 30 

RECUL XJ «- 

c'est pareil mais en reculant, on com¬ 
pare à zéro et on décrémente au lieu 
d'incrémenter. 


MONTEE I ♦ 

16516 16517 

Y LA + 1 

B --—C 
on décrémente 
idem 

mais il faut cette fois soustraire (SBC) 
33 à l'adresse pour faire monter d'une 
ligne 

on revient 

DESCENTE M I 
on incrémente 
on compare à la borne 


on ajoute 33 à l'adresse écran du cur¬ 
seur pour le faire descendre d'une ligne 


690 REM > 

900 REM 
9000 FflST 
9010 INPüT ZZZ 
9020 PÛKE 32641,INI 
< ZZZ/ZZb> 

9030 FOKE 32640,ZZZ-236* 


INT ..22Z/256 > 

9040 RrIND USR 26565 
9050 PRINT flï 21,0;"ERRGK 
PEFX 32651 
9060 SLÛw 


llinsisfe 

F® 14 4° ,a CD 

44 40 ■' 4 0 CD b6 30 

mm 

i ssss.SariS 
S » f, i " S s « » 

'■ 4 43 64 4 ® 00 2a 

- ** â 7b 23 B, 


01 

FC 

20 


ss s 2 sas 

\SS£ 


06 


3 £ 76 00 01 



ûECl^, 

C.A. 26 . 


CODES 

237 91 ^ 

S‘ sf 

l « 3 26 « 4 
a § a* 
r ® 2 4 

î.i a* 

±t£ 

13 227 

237 6t 

121 ÎS 

132 64 


6 4 2 * «0 

\ 3 4* g} 

s a» f 

42 1W| 4 
47 4 ® il 

50 40 „ 

51 S 3 

s r S 7 

ir 2^ 4 

S‘ï-Ç. 

s 

\r s I 

fA l 7 0 

S 1** ** 

f 7 4 U» \ l 

116 ® 1 



Fl 


C9 



on revient 


671 

411F 

2A OC 40 

11 00 00 

tout 

179 



octets 

19 

+ 

4 stock 

183 

01 CO 02 3E 76 23 BE 28 


octets 

FC 3E80 AE77 OB 78 B1 

69 

donc 



points 

20 Fl C9 


Sous routine d'inversion vidéo on met en 16675-16676 l'adresse écran du 
début à inverser lici c’est le début de l'écran). 

Et en 16679-80 le nombre de caractères à inverser lici 02 CO en hexa soit 704 
en décimal 122 x 32) c'est-à-dire tout l'écran. 

Cette dernière routine de 26 octets est relogeable et peut être utilisée à part. 
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NOS LECTEURS 

régression linéaire 

et parabolique 
et Interpolation 










































































ONT DU GENIE 


1 

REM 

.REGRESSION LlNEHlRt 

2 

REM 

■ET PARABOLIQUE. 

3 

REM 

■ INTERPOSATÏONS • 

4 

REM 


5 

REM 

18.04.64 

6 

REM 


7 

REM 

«GARBAr .JOCELYN ■ 

S 

REM 


9 

REM 


10 

DIM 

Xi 50 > 

11 

DIM 

Yi 50 > 

12 

DIM 

Ai 3 > 

13 

DIM 

Bi 3> 

14 

DIM 

Mi 3,3 > 

15 

DIM 

Ci 3 / 3) 

16 

DIM 

Vi 3/ 3 > 

17 

REM 


18 

REM 

û»r tViSe 

19 

REM 


20 

CLS 



21 GOSUB 2000 

30 F'RINT AT 12/0;"DEGRE DE 
LA REGRESSION il OU 2;" 

40 INPUT P 

45 IF (POl) AMD '.PO2> 

THEN GOTO 30 

50 PRINT " REPONSE 1 ";P 
60 LET P-P+l 
70 G0SU8 3000 

80 PRINT AT 15/0;"NOMBRE DE 
COUPLES. ..il A 50 )• 

90 INPUT N 

95 IF N>50 THEN GOTO B0 
100 PRINT " REPONSE ! ";N 

112 REM 

113 REM aemeK'aSe 

114 REM 

115 CLS 

120 GOSUB 2000 
125 GOSUB 3000 
127 PRINT AT 5/0;"*" 

129 REM •ntre*kJes»3orm**£ 

130 FOR 1-1 TO N 

135 IF I<-16 THEN GOTO 153 

136 SCROLL 

137 FOR J-0 TO' 5 

138 PRINT AT J/0;" 

139 NEXT J 

140 GOSUB 2000 

141 GOSUB 3000 

142 FOR J-6 TO 21 

143 PRINT AT J/0; 

144 NEXT J 

150 LET A*-‘“ > *“ 

152 IF I<-9 THEN GOTO 155 

153 LET A*=">•" 

155 PRINT "Xi";I;A*; 

160 INPUT Xil> 

170 PRINT X<I>/"Yi“;i;A*; 

180 INPUT YiI> 

190 PRINT Y<I> 

200 LET Mi 1 / 1 >-Mi 1/0+1 

201 LET Mi l/2>-Mi 1/2J+XU > 

202 LET Mi 2, 1 >-Mi 1/2) 

203 LET M<2/2>-M<2/2>+X<I >*Xi I > 

204 LET Bi 1 ::>=Bi 1 >+Yi I > 

205 LET Bi2 >-6i2 >+XiI>*YiI> 

206 IF P-2 THEN GOTO 215 

207 LET Mi l/3>M<2/2> 


208 LET Mi 3/1>-Mi l/3> 

209 LET Mi2/3>Mi2/3>+Xt i >*.». 
i I,'*XiI> 

210 LET M<3/2>Mi2/3> 

211 LET Mi3/3>-Mi3/3>+XiI>*X 
i I >*Xi I >#Xi I > 

212 LET Bi 3 >-Bi 3 >+Yi I > 

*Xi i >*Xi I ) 

NEXT I 

REM f iïifcntreeB8*»B3orvn«es 

REM èeme^aSe 

CLS 

GOSUB 2000 
GOSUB 3000 
REM 

REM INVERSION DES MATRICE 
REM 


215 

216 

217 

218 
219. 
220 

224 

225 
230 
240 
250 
255 
260 
265 
270 
275 
280 
290 
295 
297 
300 
302 
305 
310 
320 
330 
340 
350 
360 
370 
380 

385 

390 

400 

405 

410 

415 

420 

425 

430 

435 

450 

451 

452 

460 

465 

480 

490 

495 

500 

505 

506 

507 


REM 

GOSUB 1000 
REM 

REM CALCUL DES PARAMETRES 
REM 

FOR 1-1 TO P 
FOR K-l TO P 

LET Ai I >-Ai I >+Ci I, K >*8i K > 
NEXT K 
NEXT I 
REM 

REM CRLCUL DE LA VARIANCE 
REM 

LET Z-0 

FOR 1-1 TO N 

LET Y-Ai1>+Ai2 >*xi I > 

IF F-2 THEN GOTO 350 
LET Y-Y+Ai3 >*XiI>*XiI> 

LET Z-Z+t Y-YiI> >*i Y-YtI> > 
NEXT I 

IF N>P THEN GOTO 390 
PRINT AT 15/0;" 

.. imPoisible.. .HEzHE. ’• 

STOP 

LET Z-Z/'iN-P) 

FOR 1-1 TO P 
FOR J-l TO P 
LET ViI,J >«Z*CtI/J > 

NEXT J 
NEXT I 
REM 

REM sortieBdesB~*su.lt&ts 
REM 

PRINT AT 7/0; 

"-RESULTATS_ 1 

IF P-2 THEN PRINT AT 9/17; 
"F<X>- A1*X +A0" 

IF P»3 THEN PRINT RT 9/9; 
"FiX)- R2*X*X +A1*X +A0’ 
PRINT AT 12/0;"DEVIAT. 

STD DU FIT : "; SÛR iZ> 

PRINT 

FOR K-l TO P 
PRINT "R";K-l;" 1 ”; Ai K > 
PRINT " ECART.TYPEiA" 
<K-1;">< ";SQR ABS iV<K/K>> 

NEXT K 

PRINT AT 21/0; 
"INTERPOLATION? iO'NJ" 

IF INKEYt-"" THEN GOTO 506 
IF INKEY*-"0" THEN GOTO 515 


508 PRINT AT 21/0;"POUR 
RECOMENCER TAPEZ KUN 

509 STOP 

511 REM 

512 REM 

513 REM interPclatior» 

514 REM 

515 CLS 

516 GOSUB 2000 

517 GOSUB 3000 

510 PRINT AT 9/0; 

"... INTERPOLATION... " 

519 PRINT AT 15/1;"X' "; 

520 INPUT X 
525 PRINT X; 

530 LET Y-Ri1>+Ai2 >*X 
540 IF P-2 THEN GOTO 560 
550 LET Y-Y+Ai3>*X*X 
560 PRINT ■ --> V* ”;Y 

570 PRINT AT 20/0;"AUTRE 
INTERPOLATION? iO/'N>" 

575 IF INKEYf-"" THEN GOTO 575 
580 IF INKEY#-"0" THEN GOTO 600 
585 PRINT AT 20/0;"POUR 
RECOMENCER TAPER RUN 
590 STOP 

600 PRINT AT 15/0;" 

605 PRINT HT 20/0;" 

610 GOTO 519 

997 REM 

998 REM %%WPro9r*.mtn9Uiy.y.y. 

999 REM 

1000 FOR 1-1 TO P 
1005 LET Ctl/I>-1 
1007 NEXT I 
1010 FOR J-l TO P 
1015 LET T-l>MiJ/J) 

1020 FOR K-l TO P 
1030 LET MiJ,K>-T*MiJ/K> 

1035 LET CiJ/K>-T*CiJ/K> 

1040 NEXT K 

1050 FOR L-l TO P 

1055 IF L-J THEN GOTO 1110 

1060 LET T—M(L/J> 

1070 FOR K-l TO P 

1080 LET MtL/K>-MiL/K>+T*Mi J/K> 

1090 LET CiL/K )-CiL/K >+T*CiJ/K ) 

1100 NEXT K 

1110 NEXT L 

1115 NEXT J 

1121 RETURN 

1997 REM 

1998 REM ss^roSrammeK^X 

1999 REM 

2000 PRINT AT 0/9;"REGRESSION" 
2010 PRINT AT 1/3;"LINEAIRE ET 

PARABOLIQUE" 

2020 PRINT AT 2,7;“ET 
INTERPOLATION" 

2050 PRINT AT 5/0;"********#**“ 
2060 RETURN 

2998 REM a*V rottrammeBéXXJi 

2999 REM 

3000 IF P-2 THEN GOTO 3050 
3010 PRINT AT 1/3;"LINEAIRE 

ET Paraboli4a*‘ 

3020 RETURN 
3050 PRINT AT 1 / 3; " l 
ET PARABOLIQUE" 

3060 RETURN 
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recherche de çy 
la date de Pâques 



M. Georges Remion 
6, allée des Ormeaux 
St-Cyr/Loire * 

37100 TOURS 

La fête de Pâques est fixée depuis fort 
longtemps au dimanche qui suit la 
pleine lune arrivant après le 20 mars. La 
lune choisie étant une lune moyenne, 
qui diffère légèrement de la lune réelle, 
la fête de Pâques est une fête mobile 
dont la date est donnée par les éphé- 
mérides et portée à notre connaissance 
par les calendriers. 

Cette date peut varier du 22 mars au 25 
avril, et il n'est pas simple de la calcu¬ 
ler. La formule utilisée ici est la célèbre 
formule de Gauss, aménagée pour être 
utilisée de l'année 1900 à l'année 1999 
exclusivement. 

Avec cette formule Pâques est le 
(22+d+e) de mars ou le (d+e—9) du 
mois d'avril ou le (d+e—9—7) du mois 
d'avril si le (d + e—9) du mois d'avril est 
plus grand que le 25 avril. 

"d" est le reste de la division de 
(19 a+24) par 30, où 
"a" est le reste de la division du millé¬ 
sime de l'année choisie par 19 

"e" est le reste de la division de 
(2b+4c+6d + 5) par 7, où 
"b" est le reste de la division du millé¬ 
sime par 4 

“c" est le reste de la division du millé¬ 
sime par 7 

Le reste de la division est ici, le reste de 
la division euclidienne, c'est-à-dire, la 
division arrêtée au quotient entier. 
Ainsi : 

a = M —INT(M/19)19 

(avec M=millésime) 

b=M —INT(M/4)4 

c = M —INT(M/7)7 

d=(19a+24) — INT((19a+241/30)30 

e = (2b + 4c + 6d + 5) — 

INT((2b+4c + 6d+5)/7)7 


LES PROGRAMMES 
Programme IKo 

Ce programme n'utilise pas la totalité 
de la mémoire, mais peu s'en faut. Il est 
donc conseillé d'entrer les lignes char¬ 
gées, de 170 à 230, en premier et les 
plus courtes en dernier. Cette méthode 
est plus rapide que la traditionnelle. 
Dans ce programme les valeurs numé¬ 
riques, gourmandes en octets, ne sont 
utilisées qu'une seule fois, pour rece¬ 
voir une affectation. Ceci permet de 
charger un programme de calcul dans 
moins de 1 Ko. 

s as 

10 PR INT "JOUR DE PROUES, QUELLE ««NEE'" 

15 INPUT Q 
Î0 LET H-7 
«0 LET N-5 
50 LET 0-2 
60 LET P-6 
70 LET R-OoP-N 
BO LET S-0*0 
90 LET T-NoP 
100 LET U-R-NH) 

110 LET V-O-O-F. 

120 LET W-V-0 

130 LET X-V+M 

131 LET 6-1900 

132 LET H-1999 

133 IF Q<G OR Q>H THEN PRINT "LA DATE DOIT 
ETRE INCLUE ENTRE” AT H,U;B;- ET ’jH 

134 FOR 1-6 TO H 

135 NEXT I 

139 IF Q<6 OR Q>H THEN GOTO 5 

140 LET B-Q-ÎNT (Q/S)«S 
160 LET C-O-INT <Q/H)*M 

170 LET D-(R*A*V)-INT 1CR-A-VI/T)»T 
190 LET E-(0»B-0*0*C»P»D»N)-INT 
(<0*B-0*0*C7P-0-N)/N)/Ml«N 
190 LET FIN-250 

195 IF W»D*E >-W AND W*D*E <-X THEN PRINT AT 
0«N,0l- PAQUES SERA LE "îN-D-El" nARS "|Q 
200 IF U-D-E >-H AND W*D*E <-X THEN 6OT0 FIN 
210 IF D*E-U >-V»0 THEN PRINT AT 0«N,0|" 
PAOUES SERA LE ":D+E-U:" AVRIL "*0 
220 IF D+E-U >-V+0 THEN GOTO FIN 
230 IF D+E-U <-N+N THEN PRINT AT 0*N,0: 

" PAOUES SERA LE ":D+E-U:" AVRIL ":Q 
230 PRINT AT R,0-0|"VOULEZ-VOUS UNE 
AUTRE DATE*» 0/N" 

260 INPUT Qf 

270 IF 04-"0" THEN GOTO 5 
290 STOP 

290 SAVE "PAOUES" 

300 RUN 


Programme 16 Ko 

Ce programme est bien plus lisible que 
le précédent et ne limite pas les octets 
nécessaires, bien qu'il ne soit pas beau¬ 
coup plus long à entrer au clavier. 

La principale variable demandée est le 
millésime choisi qui est affecté à la 
variable Q. 

Dans les lignes 100 à 140 on donne le 
formulaire de calcul. 

Les lignes les plus intéressantes se trou¬ 
vent en 150 à 170. Ici s'effectue le cal¬ 
cul définitif. 

1 REM Georges REMION 

2 REM 6 Ail# d** Ormeau 

3 REM ST CYR S/ LOIRE 37100 

4 REM 

5 GOSUB 300 

10 PRINT AT 0,2*"CALCUL DE LA DATE 
DE PAOUES" 

13 PRINT AT 1,2:"•*•+**********♦+*•♦***••*" 

20 PRINT AT 2,2:"CALCUL EFFECTUE EN 

UTILISANT"|AT 4,6:"LA FORMULE DE GAUSS" 

23 PRINT AT 3,6:"-* 

30 PRINT AT 6,0:"AVEC CETTE METHODE VOUS 
TROUVE-","REZ LA DATE DE PAOUES ENTRE " 

40 PRINT AT 10,4;"LES ANNEES 1900 ET 1999": 

AT 11,41"-" 

45 PRINT AT 12,0:"POUR QUELLE ANNEE VOULEZ 
VOUS LADATE DE PAOUES**" 

30 INPUT 0 

60 PRINT AT 13,15:"POUR L, ANNEE "|0 
63 FOR N-l TO 30 

70 IF Q<1900 OR 0>1999 THEN PRINT AT 20,20: 

"EN DEHORS DES LIMITES" 

73 IF Q<1900 OR 0>1999 THEN PRINT AT 20,20:" 

60 NEXT N 

90 IF 0<1900 OR Q>1999 THEN GOTO 50 
100 LET A-O-INT (0/19)«19 
110 LET B-O-INT (0/4)*4 
120 LET C-Q-INT (0/7)«7 

130 LET D-<19*A+24)-INT ((19+A+24)/30)*30 
140 LET E-(2*B+4#C+6*D+5)-INT 
( (2+B+4sC+60+3)/7)s7 

145 PRINT AT 15,0:"-" 

146 PRINT AT 17.Ol"-" 

130 IF 22+D+E >«22 AND 22+D+E <*31 

THEN PRINT AT 16,0: 

"PAOUES SERA LE ":22+D+E:" MARS ":0 
133 IF D+E-9 >«26 T)€N 60T0 200 
160 IF D+E-9 >«26 THEN PRINT AT 16,0: 

"PAOUES SERA LE "iD+E-9-7:" AVRIL "lQ 
170 IF D+E-9 <-25 THEN PRINT AT 16,0: 

"PAOUES SERA LE ":D+E-9:" AVRIL "(0 
200 PRINT AT 20,0:"VOULEZ VOUS 
UNE AUTRE DATE* 5 0/N" 

210 INPUT Qt 

220 IF 0t-"0" THEN PRINT AT 16,0:"32 espace» 

:AT 20,0:" 32 espaces 
223 IF 0t-"0" THEN PRINT AT 13,15: 

" 17 espaces • 

230 IF 04-"0“ THEN GOTO 50 
250 STOP 
260 RAND 

310 PRINT AT 10,0:"LA FETE DE PAOUES PEUT 
VARIER DU":AT 14,6:"22 MARS AU 25 AVRIL" 

313 PRINT AT 20,16:"FAITES NEWLINE" 

320 IF INKEYtO"" THEN GOTO 320 
330 IF INKEYS-"" THEN GOTO 330 

340 as 111 

350 RETURN _ 

400 STOP - 

500 SAVE "PAOUES" - - - - 

310 GOTO 5 - - - - 
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ENCYCLOPEDIE 
DE LA MICRO 
INFORMATIQUE 
par Peter 
Rodwell 


Voici une très belle encyclopédie 
qu'on prend plaisir à feuilleter, autant 
par curiosité que par nécessité. En 
effet, l'auteur a largement fait usage 
de croquis, photographies et schémas 
pour expliquer les différents sujets 
abordés. Comme toute encyclopédie, 
les rubriques de celle-ci sont ordon¬ 
nées par thèmes. Après l'introduc¬ 
tion. viennent les chapitres consacrés 
è l'initiation à la micro informatique, 
la logique informatique, le matériel 
les logiciels, les évolutions prévisi 
blés, et enfin le guide de l’acheteur 
L'introduction ne présente pas d'origina 
lités particulières, elle traite entre autres 
sujets de l'utilité de l'informatique, des dif¬ 
férents types de machine, des différents 
systèmes informatiques, des applications 
et nous présente un historique de l'infor¬ 
matique, depuis le boulier chinois jusqu'au 
SPECTRUM. Le chapitre de l'initiation à 
la micro informatique est déjà plus inté¬ 
ressant. L'auteur y aborde des sujets plus 
pratiques et plus techniques, tels que l'ins¬ 
tallation d'un système informatique. C'est 
dans ce même chapitre que l'auteur sen¬ 
sibilise le lecteur à la nécessité de possé¬ 
der une méthodologie d'analyse. Le 
système de numérotation binaire, les 
codes ASCII, les tables de vérité, les por¬ 
tes logiques et l'architecture interne d'un 
micro ordinateur font l'objet d'un seul 
chapitre. Le tout est expliqué clairement, 


accompagné de nombreux schémas et de 
belles photographies comme celle d'une 
puce logique en gros plan. Le fonction¬ 
nement d'une unité centrale est décrit 
dans le chapitre consacré au matériel avec 
en exemples, les magnifiques Z80 et 
Z8000 de ZILOG, le fameux 6602 de MOS- 
TEK et les bien connus 8088 et 8086 de 
chez INTEL. Dans ce chapitre l'auteur 
nous explique comment un micro proces¬ 
seur communique avec les différentes uni¬ 
tés périphériques qui composent un 
système informatique, comment les puces 
sont fabriquées, et comment les eproms 
sont programmées. Le chapitre traitant 
des logiciels est le plus développé, avec 
l'explication des différentes phases de la 


conception, la présentation des princi¬ 
paux langages utilisés (BASIC, ASSEM¬ 
BLEUR du Z80) et d'autres moins cou¬ 
rants, on nous cite des utilitaires (tableur, 
gestionnaire de bases de données, traite¬ 
ments de texte). Les utilisations et les 
développements futurs de l'informatique 
sont les derniers sujets développés avant 
de nous livrer les fiches d'identité des ordi¬ 
nateurs les plus courants. Dans ce guide 
de l'acheteur, chaque machine figure en 
photographie accompagnée d'un texte 
décrivant ses principales caractéristiques. 
Cette encyclopédie est un excellent 
ouvrage de vulgarisation qui se lit aisé¬ 
ment et qui donnera à ceux qui débutent 
l'envie d’en savoir plus. 




■ ■■■I 

■ ■■■I 

■ ■■■I 
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beaucoup d'autres. Tous ces programmes 
sont écrits d'une manière simple, faciles 
à comprendre, et surtout, ce qui fera plai¬ 
sir à plus d'un programmeur, ils sont 
structurés autant que le superbasic le per¬ 
met. Outre les programmes, ce guide est 
agrémenté de nombreux schémas simples 
et aisément compréhensibles. Pour le 
reste, les instructions du superbasic ne 
sont pas classées par ordre alphabétique, 
mais par type d'affectation, ainsi, toutes 
les instructions relatives aux accès 
mémoires sont regroupées dans un 
chapitre. 

Ne crachons pas dans la soupe, voici un 
guide qui sera sûrement utile aux posses¬ 
seurs d'un SINCLAIR QL qui veulent en 
savoir plus. 

ZX SPECTRUM & 
SPECTRUM 
PLUS : 

TECHNIQUES 

GRAPHIQUES 

AVANCEES 

par IAN 

O. ANGELL et 

BRIAN J. JONES 

EYROLLES 

Au plaisir des yeux, tel est le sous-titre 
qu'on pourrait donner à cet ouvrage. 
Paper, ink. border, plot, draw, voici 
quelques-unes des commandes gra¬ 


GUIDE 
PRATIQUE 


uu 

SINCLAIR QL 
par Eric TENIN et 
Jean-Manuel 
VAN THONG 


Les auteurs de ce guide nous promè¬ 
nent à travers les méandres de l'infor¬ 
matique et les commandes du SIN¬ 
CLAIR QL le plus simplement et le 
plus gentiment possible, en évitant 
d'agresser nos malheureux neurones 
stressés par une dure journée de 
labeur. Ce guide n'est pas à affubler 
du carré blanc, il peut, en effet, être 
lu par toute personne désirant soit 
compléter des connaissances sur le 
SINCLAIR QL, soit tout connaître, 
pour pouvoir débuter dans le dur 
monde des bits et des bytes. 

D’une lecture très aisée, ce guide nous 
emmène d'une présentation générale suc- 
cinte, mais suffisante, jusqu’à la concep¬ 
tion du graphisme sur le SINCLAIR QL, 
en passant par l'utilisation des différents 
périphériques du SINCLAIR QL, une des¬ 
cription des logiciels fournis avec le micro 
ordinateur, la réalisation de programmes, 
avec un arrêt sur les instructions du super¬ 
basic, et enfin, quelques notions de pro¬ 
grammation. Comme pour baliser le che¬ 
min parcouru, les auteurs ont eu l'excel¬ 
lente initiative de ponctuer la lecture de 
ce guide par des programmes tels que, 
mise à jour automatique de l'horloge 
interne, sauvegarde d'une page graphique 
sur microdrive, les tours de Hanoï, visua¬ 
lisation d'un objet en trois dimensions, et 


phiques que ce livre peut vous 
apprendre à utiliser. Animation, trans¬ 
lation, rotation, transformation, révo¬ 
lution, orientation, voici quelques- 
unes des tâches que votre SPEC¬ 
TRUM exécutera. Pour les amateurs 
de graphisme, confirmés, ou débu¬ 
tants. cet ouvrage est une mine de 
renseignements. 

Les programmes présentés peuvent être 
utilisés tels quels, mais aussi, ils pourront 
être source d'inspiration pour développer 
ses propres logiciels. Même si certains 
n'ont jamais pu dépasser zéro en géomé¬ 
trie, ils pourront comprendre cet ouvrage 
qui ne fait pas trop souvent appel à des 
notions compliquées. 

Après avoir étudié les techniques graphi¬ 
ques d'un micro-processeur, les auteurs 
nous expliquent comment représenter 
l’espace sur un plan. Un précis de géo¬ 
métrie analytique à deux dimensions est 
le bienvenu pour nous rappeler quelques 
dotions de base. On y trouvera toutes les 
formules nécessaires à la réalisation de 
sphères, disques, ellipses, et beaucoup 
d'autres formes géométriques. Un chapi¬ 
tre entier est consacré à l'application des 
matrices dans la représentation des espa¬ 
ces à deux dimensions. Le chapitre sui¬ 
vant traite des applications graphiques en 
deux dimensions sur le SPECTRUM. On 
nous y explique comment définir ses pro¬ 
pres caractères graphiques. Puis, avant de 
se pencher sur les espaces à trois dimen¬ 
sions, les auteurs nous présentent des 
applications graphiques telles que, histo¬ 
grammes, fonctions sinusoïdales, etc. 

La seconde partie de l'ouvrage est con¬ 
sacrée à l'espace à trois dimensions. Elle 
est composée de plusieurs chapitres, dans 
lesquels on retrouve les notions précéden¬ 
tes appliquées aux espaces tridimension¬ 
nels. De plus, on y apprendra les techni¬ 
ques de perspectives. On y trouvera aussi 
quelques algorithmes. Tout au long des 
chapitres, les auteurs nous noient agréa¬ 
blement sous un déluge de programmes 
et d'exemples. Enfin de nombreux exer¬ 
cices nous sont proposés à la fin de cha¬ 
que chapitre, ainsi qu'à la fin de l'ouvrage. 
Cet ouvrage devrait être le livre de che¬ 
vet de tout "spectrumiste" voulant se lan¬ 
cer dans le graphisme. 
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INITIATION 




au langage machine 


Certains, dans leur courrier m'ont repro¬ 
ché de ne pas avoir donné suffisam¬ 
ment de détails sur le Spectrum et de 
trop orienter mes explications sur le 
ZX 81; Je vais donc corriger cette 
lacune. Je conseillerai tout d'abord à 
ceux que cela intéresse, l'assem- 
bleur/désassembleur DEVPAC comme 
outil de développement sur Spectrum. 
C'est un assembleur très rapide pen¬ 
dant la compilation, et le désassem- 
bleur permet l'exécution pas à pas des 
programmes même en ROM, ce qui est 
très rare et vaut le détour. Pour le ZX, 
j'en reste au bon vieil assembleur 
ARTIC et au non moins vieux désas 
sembleur CRISTAL Computing (qui est 
une merveille du genre sur ZX). 




citons 


Le Z80 Zilog, est très riche dans ces ins¬ 
tructions relatives aux appels de sous- 
programmes. Ces instructions se divi¬ 
sent en deux groupes principaux. 

1/ Les appels à des adresses variables 

CALL 

2/ Les appels à des adresses fixes 

RST 


Après cette entrée en matière, nous 
allons reprendre le film à l'endroit où on 
l’avait laissé : les différentes manières 
d'appeler des sous-programmes. 




Une instruction CALL est codée en 
machine sur trois octets. Le code du 
CALL en lui-même, suivi de l'adresse du 
sous-programme sur 16 bits. 

Une instruction RST (Restart) est codée 
sur un seul octet. Mais les adresses 
d'appel sont fixes. Elles sont en géné¬ 
ral utilisées par le constructeur dans 
l'implantation du système d'exploita¬ 
tion. Chez Sinclair, que ce soit sur le ZX 
ou les Spectrum, le Restart 10H (H pour 
Hexadécimal) noté en assembleur RST 
10H est consacré à l'envoi à l'écran du 
caractère dont le code est placé au 
préalable dans l'accumulateur. Comme 
ce sous-programme est appelé très fré¬ 
quemment par le BASIC, il est très ren¬ 
table au niveau de la vitesse d'éxécu- 
tion et de l'encombrement mémoire, 
d'utiliser un Restart plutôt qu'un CALL. 


Exemples : 

LD A, LD A,"X" 

RST 10H est équivalent à CALL 10H 

RET RET 

Longueur 4 octets Longueur 6 octets 


su »» 03 


L'instruction CALL peut être associée 
à une condition. Celle-ci est la même 
que pour les instructions de saut 
(ECHOS Sinclair N° 9). La syntaxe 
complète est donc : 

CALL cc.nnnn 

cc est la condition, et nnnn une adresse 
sur 16 bits. 



Lorsqu'il exécute un CALL, le Z80 met 
dans la pile système adressée par le 
pointeur de pile SP, l'adresse de l'ins¬ 
truction qui suit immédiatement le 
CALL. Puis agit exactement comme s'il 
faisait un saut à l'adresse donnée. Là, 
il effectue les instructions du sous- 
programme jusqu'à la rencontre d'une 
instruction RET (RET comme CALL 
peut être associé à un code condition). 


Le RET (Return) a pour effet de retirer 
de la pile système une adresse de 16 bits 
qui doit y avoir été déposée par un 
CALL (ou par un autre moyen, nous 
verrons cela dans les astuces). Cette 
adresse est mise dans le compteur ordi¬ 
nal (PC = Program Counter) ce qui se 
traduit par un saut à cette adresse. 

Il est donc nécessaire, qu'à chaque RET 
corresponde un CALL, sinon RET 
essayera de dépiler une adresse qui 
n'existe pas et plantera en général le 
programme. 
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INITIATION 
au langage machine 


Exemples: 

instructions 

Séquence 

Etat de la pile 


CALL 

■ • m 

mmm 

ROUTOl 

1 PILE 

6 

ne contient rien 


■ m m 

RET 




ROUTOl 

CALL 

■ ■ • 

R0UT02 

2 PILE 

adresse retourl 

- 

• • • 

RET 


5 PILE 

ne contient rien 

R0UT02 

■ • ■ 

• • • 


3 PILE 

adresse retourl 
adresse retour2 


• • • 

RET 


4 PILE 

adresse retourl 


Vous pouvez voir dans ce petit schéma 
l'évolution de la pile avec la succession 
des CALL. 


astuces 

Les astuces consistent à manipuler la 
pile en la remplissant ou en la vidant 
soi-même. Nous allons créer un CALL 
à partir d'autres instructions. 

Il est aussi parfois nécessaire de ne pas 
revenir à l'endroit prévu par un CALL, 
il suffit alors de dépiler l'adresse de 
retour de la pile par une instruction 
POP. 

Voilà, les secrets des instructions CALL, 
RST et RET, elles se comportent 
comme les instructions GOSUB et 
RETURN du Basic. Essayez, triturez la 
pile de votre ZX favori (81 ou 
Spectrum). 


LD HL,LABEL1 
PUSH HL 
JHP ROUTOl 

LABEL1 

RET 

R0UT01 

RET 

CALL R0UT01 

ROUTOO. 

RET 

ROUTOl CALL R0UT02 

RET 


Sauvegarde de 1'adresse de 
retour dans la pile et saut 


Dépilage de 1'adresse de 
retour et saut ( à LABEL1 ) 


POP HL ; Dépilage de l’adresse de retour 

RET ; Retour direct à ROUTOO 



R0UT02 

























































































DEPOSITAIRES 


03200 VICHY 

Etablissements Eirel 

16, place Jean-Epinat 
Tél. : (70) 98.58.86. 

05003 GAP 

Davanier 

3, place Jean-Marcelin 
Tél. : (92) 51.01.17 

06600 ANTIBES 

Laboratoire d'Application Electronique 

L.A.E. 

35, rue Aubernon 
Tél. : (93) 34.53.04. 

06000 NICE 

Mad'6 

Rue Maccarani (1" niveau) 

Tél. : (93) 88.04.79. 

10150 PONT-STE-MARIE 

Eppe 

Z.l. 

Tél. : (25) 81.90.90. 

10000 TROYES 

Micro polis 

29, rue Paillot de Montabert 
Tél. : (25) 73.28.49. 

13006 MARSEILLE 

E.S.C. 

67, cours Lieutaud 
Tél. : (911 42.99.42. 

13006 MARSEILLE 

DNS Organisation 

3, rue Lafon 
Tél. : (91) 54.33.36. 

13200 ARLES 

Centre Commercial 

27, rue de la République 
Tél. : (91) 96.10.26. 

16000 ANGOULEME 

S.A. L'Homme 

186, route de Bordeaux 
Tél. : (45) 95.27.37. 

17430 TONNAY CHARENTE 

Infotel - Caisson André 

41, avenue d’Aunis 
Tél. : (46) 88.40.46. 

20200 BASTIA 

MIC 

7. avenue Emile-Sari 
Tél. : (95) 31.02.99. 

21000 DIJON 

OMG 

20, rue Michelet 
Tél. : (801 30.12.70. 

24100 BERGERAC 

Pommarel Electronique 

14, place Doublet 
Tél. : (531 57.02.65 


24001 PERIGUEUX 

Parinet Informatique 

4, avenue d'Aquitaine 
Tél. : (53) 53.44.28. 

25500 MORTEAU 

Colisson Georges 

8 , rue Neuve 
Tél. : (81) 67.18.74. 

26100 ROMANS 

By Electronique 

1, rue Bouvet 
Tél. : (751 02.68.72. 

29000 QUIMPER 

Kemper Informatique 

74, avenue de la Libération 
Tél. : (98) 53.31.48. 

31086 TOULOUSE CEDEX 

Logisoft 

39, rue de Tunis 
Tél. : (61) 21.49.55. 

31000 TOULOUSE 

OCB 

44, rue de Remuzat 
Tél. : (61) 20.42.20. 

31000 TOULOUSE 

Micro-Diffusion 

43, boulevard Carnot 
Tél. : (61) 22.81.17. 

33000 BORDEAUX 

Micro-Diffusion 

6 , rue Fernand Philippart 
Tél. : (56) 81.11.99. 

34000 MONTPELLIER 

Micropus 

15. cours Gambetta 
Tél. : (67) 92.58.83. 

35530 NOYAL-SUR-VILAINE 

Ordiface 

Route de Paris 
Tél. : (99) 00.55.07. 

35000 RENNES 

X-Matic 

161, avenue du Général-Patton 
Tél. : 199) 03.8.31.80 

35400 SAINT-MALO 

Public Electronic 

86 , rue Ville-Pépin - Saint-Servan 
Tél. : (99) 81.75.49 

37000 TOURS 

ESC Tours 

247, avenue de Gramont 
Tél. : (47) 05.59.60. 

38000 GRENOBLE 

Informatique-By 

28, rue Denfert-Rochereau 
Tél. : (76) 43.40.49. 


38000 GRENOBLE 

Alpha Systèmes 

3, rue Vauban 
Tél. : (76) 43.19.97 

39000 LONS-LE-SAULNIER 

Micro 39 

7, avenue de la Marseillaise 
Tél. : (84) 24.45.39. 

42400 SAINT-CHAMOND 

Télécentre J. Karakotchian 

2-C, Sq. Croix Gauthier 
Immeuble Le Minerve 
Tél. : (77) 22.19.68 

44600 SAINT-NAZAIRE 

Multilud 

6 , rue de la Paix 
Tél. : (401 22.58.64. 

44800 SAINT-HERBLAIN 

Micromanie 

Sillon de Bretagne 
Tél. : (40) 63.07.22. 

45140 SAINT-J EAN- 
DE-LA-RUELLE 

AGB 

23, rue de la Mouchetière 

Z.l. d’Ingre 

Tél. : (38) 43.67.43. 

45000 ORLÉANS 

E.S.C. 

98, rue du Fb Saint-Jean 
Tél. : (38) 62.05.17. 

49300 CHOLET 

Cholet Informatique 

22, rue du Puits de l'Aire 
Tél. : (41) 46.02.40. 

49300 CHOLET 

Import Elec 

9, rue du Paradis 
Tél. : (41) 62.30.76. 

49000 ANGERS 

Informatique Services 

30, rue Parcheminerie 
Tél. : (41) 88.38.55. 

51100 REIMS 

Micro Informatique Hercet 

70. rue du Barbatre 
Tél. : (26) 82.57.96. 

56000 VANNES 

L'Ordinateur 56 

38. boulevard de la Paix 
Tél. : (97) 42.52.20 

57000 METZ 

La Micro Boutique 

13, rue Paul Bezançon 
Tél. : (8) 775.41.56 
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Echos 

Sinclair - 


60108 CREIL 

Queneute 

22, rue de la République 
Tél. : (4) 425.04.26. 

61000 ALENÇON 

Orne Electronic 

4, rue de l'Ecusson 
Tél. : (33) 28.93.04. 

62420 BILLY MONTIGNY 

Billy Electronic 

163, route Nationale 
Tél. : (211 20.47.10. 

63000 CLERMONT-FERRAND 

Impact 

2, rue d'Amboise 
Tél. : (73) 92.17.56. 

63000 CLERMONT-FERRAND 

Neyrial 

3, bd Desaix 

Tél. : (73) 93.94.38. 

64000 PAU 

Librairie Lafon 

3, rue Henri IV 
Tél. : (59) 27.71.40. 

69002 LYON 

Librairie Flammarion 

19, place Bellecour 
Tél. : (7) 838.01.57. 

69003 LYON 

Alpha Systèmes 

84, avenue du Maréchal-de-Saxe 
Tél. : (7) 860.89.34. 

70000 VESOUL 

Electro Boutique 

3, rue des Ursulines 
Tél. : (84) 76.49.52. 

72000 LE MANS 

Aesculapple 

4, rue de Richebourg 
Tél. : (43) 24.97.80. 

74300 CLUZES 

La Boutique d'ICS 

72, avenue du Général-Clémenceau 
Tél. : (50) 96.03.35. 

75001 PARIS » 

Video Shop 

50, rue de Richelieu 
Tél. : (1) 296.93.95. 

75002 PARIS 

Hachette Opéra 

6. bd des Capucines 
Tél. : (1) 265.83.52. 

75005 PARIS 

La Règle à Calcul 

65/67, boulevard Saint-Germain 
Tél. : (1) 325.68.88 


75007 PARIS 

Au Bon Marché 

86. rue de Sèvres 
Tél. : (1) 260.33.45. 

75009 PARIS 

International Computer 

29, rue de Clichy 
Tél. : (1) 285.24.55. 

75009 PARIS 

Interface 

30, rue Condorcet 
Tél. : (1) 285.12.34. 

75011 PARIS 

Vismo Informatique 

84, bd Beaumarchais 
Tél. : (1) 338.60.00 

75580 PARIS CEDEX 12 

Cibot Radio 

1/3, rue de Reuilly 
Tél. : (1) 346.63.76. 

75014 PARIS 

Compokit 

174, bd Montparnasse 
Tél. : (1) 335.42.25. 

75015 PARIS 

Librairie Informatique d'Aujourd'hui 

253, rue Lecourbe 
Tél. : (1) 828.72.88. 

75018 PARIS 

VTR - Vidéo Telemat Report 

54, rue Ramey 

Tél. : (1) 606.34.01 et 252.87.97. 

76000 ROUEN 

Amir 

50, rue de Fontenelle 
Tél. : (35> 88.56.94. 

76000 ROUEN 

Espace Temos Réel 

9, quai du Havre 

77120 COULOMMIERS 

Brie Informatique 

2, place Pasteur 
Tél. : (61 420.73.90. 

77000 MELUN 

Melun Informatique 

9, rue de l’Eperon 

80000 AMIENS 

SIP Informatique 

Centre Oasis - RN 16 

Tél. : (221 91.08.45 et 91.79.57. 


84200 CARPENTRAS 

Isis 

110, place de Verdun 
Tél. : (90) 60.17.05. 

86000 POITIERS 

Informatique Services 

14, bd Chasseigne 
Tél. : (491 88.21.93. 

87000 LIMOGES 

Ricochet 

17 bis, bd Jean-Perrin 

90000 BELFORT 

Electron Belfort 

10, rue d'Evette 
Tél. : (84) 21.48.07. 

91400 ORSAY 

Micro Informatique 91 

15, rue Boursier 
Tél. : (6) 446.05.85 

93170 BAGNOLET 

Photo Soft 

Centre Commercial 
45, avenue Gallieni 
Tél. : (1) 364.84.47. 

94300 VINCENNES 

Ordividuel 

20, rue de Montreuil 
Tél. : (1) 328.22.06. 

94130 NOGENT-SUR-MARNE 

Librairie A/Berlet 

105, grande rue Charles-de-Gaulle 

95000 CERGY-PONTOISE 

Les Temps Modernes 

Centre Commercial 
des 3 Fontaines 
Tél. : (3) 073.11.22. 

5650 BIESME (BELGIQUE) 

AC Computing 

Fonds des Vaulx 
73-B 5650 Biesme 
Tél. : (19-32) 71.72.74.15 

1201 GENEVE (SUISSE) 

Hi-Soft S.A. 

2, rue Vallin 
1201 Genève 
Tél. : (19-41) 22.32.32.02 

DÉPOSITAIRES 


83160 LA VALETTE 

E.M.C.O. 

Avenue des Frères-Lumière 

■ 

E 

C 


IQ 

S 

Z.l. Sainte-Claire 

Tél. : (94) 27.47.01. 
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2. SINCLAIR 


logiciels 

offertes 


L 


Comment procéder 


f 



4 


3 3 


££S 4 MICRO JAQUETTES 
AINSI OBTENUES 
PEUVENT PRENDRE 

LEUR PLACE 



3 


Piier 
suivant /es 
traits tu? 3 




DANS VOS BOITIERS 
DE CASSETTES 
LOGICIELS. r*> 



•çP 





3 

















deiogfc * 43 


• sonna,l Mi c * 0 


cassette* ^fertes 




te* M E CHOS SlNCtAlB 












































